From 78d781a80351e65e1613b128ad5eb3686cd1733e Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Sat, 16 May 2026 17:37:35 +0000 Subject: [PATCH] [PATCH] TODO: Put a short summary on the line above and replace this paragraph with a longer explanation of this change. Complete the meta-information with other relevant fields (see below for details). To make it easier, the information below has been extracted from the changelog. Adjust it or drop it. Bug-Debian: https://bugs.debian.org/1135720 Gbp-Pq: Name Version_2_7_2pre23 --- cmpnew/gcl_cmpeval.lsp | 9 +++++---- git.tag | 2 +- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/cmpnew/gcl_cmpeval.lsp b/cmpnew/gcl_cmpeval.lsp index e23621c4..e248a504 100644 --- a/cmpnew/gcl_cmpeval.lsp +++ b/cmpnew/gcl_cmpeval.lsp @@ -87,10 +87,11 @@ (let ((val (symbol-value form))) (or (c1constant-value val nil) - (when (functionp val) - (c1function (list (fle val)))) - `(location ,(make-info :type (object-type val)) (VV ,(add-constant form)))))) - ; ((c1var form)))) + `(location + ,(make-info + :type (if (functionp val) #tfunction (object-type val)));FIXME + (VV ,(add-constant form)))))) +; ((c1var form)))) ((c1expr-avct (c1var form))))) ;FIXME pcl ((consp form) (let ((fun (car form))) diff --git a/git.tag b/git.tag index 243ec70b..a56169f8 100644 --- a/git.tag +++ b/git.tag @@ -1 +1 @@ -"Version_2_7_2pre22" +"Version_2_7_2pre23" -- 2.30.2